home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
pc
/
00000000
/
contrib.dir
/
00006_Script_6
< prev
next >
Wrap
Text File
|
1995-11-09
|
2KB
|
80 lines
on blendSpriteDown
set blendValue = 100
repeat while blendValue >= 0
set blendValue = blendValue - 10
if blendValue = 0 then exit repeat
set the blend of sprite 3 to blendValue
updatestage
put blendValue
if the mousedown then exit repeat
end repeat
end blendSpriteDown
-------------------------------------------------------------------
on blendSpriteUp
set blendValue = 0
repeat while blendValue <= 100
set blendValue = blendValue + 10
if blendValue = 100 then exit repeat
set the blend of sprite 3 to blendValue
updatestage
put blendValue
end repeat
end blendSpriteUp
-------------------------------------------------------------------
on goFwdOld
global currentText, theFirstText, theLastText
if the castNum of sprite 3 < theLastText then
animate 2, 4
blendSpriteDown
set the castNum of sprite 3 = ( the castNum of sprite 3 ) + 1
blendSpriteUp
end if
end goFwdOld
-------------------------------------------------------------------
on goBackOld
global currentText, theFirstText, theLastText
if the castNum of sprite 3 > theFirstText then
animate 2, 4
blendSpriteDown
set the castNum of sprite 3 = ( the castNum of sprite 3 ) - 1
blendSpriteUp
end if
end goBackOld
-------------------------------------------------------------------
on goFwd
global currentText, theFirstText, theLastText
if the castNum of sprite 3 < theLastText then
animate 2, 4
set the castNum of sprite 3 = ( the castNum of sprite 3 ) + 1
end if
end goFwd
-------------------------------------------------------------------
on goBack
global currentText, theFirstText, theLastText
if the castNum of sprite 3 > theFirstText then
animate 2, 4
set the castNum of sprite 3 = ( the castNum of sprite 3 ) - 1
end if
end goBack